home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_01_06 / 1n06038a < prev    next >
Text File  |  1990-09-29  |  265b  |  24 lines
  1.  
  2.  
  3. Listing 2
  4.  
  5. uses
  6.     scan;
  7.  
  8. var
  9.     tc : token_code;
  10.  
  11. begin
  12. start_scan;
  13. repeat
  14.     tc := get_token;
  15.     write(token_code_image[tc]);
  16.     if tc = TC_INT then
  17.         write(' : ', int_value);
  18.     writeln;
  19.     if tc = TC_BAD then
  20.         restart_scan;
  21. until tc = TC_EOF;
  22. end.
  23.  
  24.